home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr26 / pwrutls2.zip / ANSIKEY.BAT < prev    next >
DOS Batch File  |  1993-06-03  |  3KB  |  80 lines
  1. @ECHO OFF
  2. REM This is ANSIKEY.BAT
  3. REM This won't work unless ANSI.SYS is loaded and KEY.COM is handy!
  4. REM It will work with ALL keys EXCEPT the GREY arrow keys,
  5. REM  GREY Home/End, GREY Page Up/Down, and GREY Ins/Del.
  6. SET OP=%PROMPT%
  7. FOR %%A IN (F S ST YN CR EX1 EX2) DO SET %%A=
  8. IF %1!==! GOTO NOSTRING
  9. SET ST=%1
  10. :TOP
  11. SHIFT
  12. IF %1!==! GOTO DONE
  13. SET ST=%ST% %1
  14. GOTO TOP
  15. :DONE
  16. ECHO Press the key you want to assign %ST% to . . .
  17. KEY
  18. IF ERRORLEVEL 0 IF NOT ERRORLEVEL 1 SET EX1=Y
  19. IF NOT %EX1%!==Y! GOTO SKIP
  20. ECHO Please verify this by pressing that key again . . .
  21. KEY /F
  22. :SKIP
  23. FOR %%A IN (0 1) DO IF ERRORLEVEL %%A00 SET F=%%A
  24. FOR %%A IN (0 1 2 3 4 5 6 7 8 9) DO IF ERRORLEVEL %F%%%A0 SET F=%F%%%A
  25. FOR %%A IN (0 1 2 3 4 5 6 7 8 9) DO IF ERRORLEVEL %F%%%A SET F=%F%%%A
  26. IF %EX1%!==Y! SET F=0;%F%
  27. ECHO Do you want a carriage return at the end of %ST% (Y/N)?
  28. KEY
  29. IF ERRORLEVEL 121 IF NOT ERRORLEVEL 122 SET CR=;13
  30. IF ERRORLEVEL  89 IF NOT ERRORLEVEL  90 SET CR=;13
  31. ECHO ON
  32. PROMPT $E[%F%;"%ST%"%CR%p
  33. GOTO RESET
  34. :NOSTRING
  35. ECHO Press the key you want to change . . .
  36. KEY
  37. IF ERRORLEVEL 0 IF NOT ERRORLEVEL 1 SET EX1=Y
  38. IF NOT %EX1%!==Y! GOTO SKIP2
  39. ECHO Please verify this by pressing that key again . . .
  40. KEY /F
  41. :SKIP2
  42. FOR %%A IN (0 1) DO IF ERRORLEVEL %%A00 SET F=%%A
  43. FOR %%A IN (0 1 2 3 4 5 6 7 8 9) DO IF ERRORLEVEL %F%%%A0 SET F=%F%%%A
  44. FOR %%A IN (0 1 2 3 4 5 6 7 8 9) DO IF ERRORLEVEL %F%%%A SET F=%F%%%A
  45. IF %EX1%!==Y! SET F=0;%F%
  46. ECHO Okay, now press the key you want to change it to . . .
  47. KEY
  48. IF ERRORLEVEL 0 IF NOT ERRORLEVEL 1 SET EX2=Y
  49. IF NOT %EX2%!==Y! GOTO SKIP3
  50. ECHO Please verify this by pressing that key again . . .
  51. KEY /F
  52. :SKIP3
  53. FOR %%A IN (0 1) DO IF ERRORLEVEL %%A00 SET S=%%A
  54. FOR %%A IN (0 1 2 3 4 5 6 7 8 9) DO IF ERRORLEVEL %S%%%A0 SET S=%S%%%A
  55. FOR %%A IN (0 1 2 3 4 5 6 7 8 9) DO IF ERRORLEVEL %S%%%A SET S=%S%%%A
  56. IF %EX2%!==Y! SET S=0;%S%
  57. ECHO ON
  58. PROMPT $E[%F%;%S%p
  59. PROMPT $E[10;13p
  60. :RESET
  61. SET PROMPT=%OP%
  62. @ECHO OFF
  63. CLS
  64. IF NOT EXIST RESET.BAT GOTO WIPEIT
  65. ECHO Do you want to AVOID wiping out your existing RESET batch file (Y/N)?
  66. KEY
  67. IF ERRORLEVEL 121 IF NOT ERRORLEVEL 122 GOTO CONTIN
  68. IF ERRORLEVEL  89 IF NOT ERRORLEVEL  90 GOTO CONTIN
  69. :WIPEIT
  70. ECHO @ECHO ON > RESET.BAT
  71. :CONTIN
  72. ECHO @PROMPT $E[%F%;%F%p >> RESET.BAT
  73. ECHO. >> RESET.BAT
  74. REM Spacing of next line is critical!
  75. ECHO @SET PROMPT=%OP%>> RESET.BAT
  76. ECHO @ECHO Key with code %F% now reset. >> RESET.BAT
  77. ECHO Key with code %F% now redefined; type RESET to restore it.
  78. :END
  79. FOR %%A IN (F S ST YN CR OP EX1 EX2) DO SET %%A=
  80.